home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Draw 2000 v2.62 disk1.adf / HDInstall < prev    next >
Text File  |  1992-01-24  |  7KB  |  308 lines
  1. ; Install Draw 2000 on Hard Drive (Script for Installer)
  2. ; by Patricia Cummings
  3.  
  4. ;  Ask User OpSys Version
  5. (set sysver
  6.     (askchoice
  7.         (prompt "Which version of the Workbench are you using?")
  8.         (help (cat "   The Draw 2000 software is compatible with either"
  9.             " 2.x or earlier (1.2 and 1.3) versions of Workbench.\n\n"
  10.             @askchoice-help))
  11.         (choices "Version 1.2 or 1.3" "Version 2.x")
  12.         (default 0)
  13.     )
  14. )
  15.  
  16. ; Establish user installation path
  17. (set d2dir
  18.     (askdir
  19.         (prompt "Where would you like to install Draw 2000 Version 2?")
  20.         (help @askdir-help)
  21.         (default @default-dest)
  22.     )
  23. )
  24.  
  25. (complete 0)
  26.  
  27. (set @default-dest d2dir)
  28. (makedir d2dir (infos))
  29.  
  30. (complete 5)
  31.  
  32. ; Install plain or math-coprocessor version
  33. ; Assume that if they are running WB1.3, default to Draw2000,
  34. ; otherwise default to Draw2000M
  35. (set mathver
  36.     (askchoice
  37.         (prompt "Which version of the Draw 2000 program would you like to"
  38.             " install?  A brief description of each is available in"
  39.             " \"Help\".  NOTE: You MUST have a math coprocessor chip"
  40.             " to use the Math Version!")
  41.         (help (cat "   The basic version of the program, \"Draw2000\","
  42.             " will work on any 68000/68020/68030 Amiga computer."
  43.             " The \"Draw2000M\" version requires that you have"
  44.             " an advanced Amiga (68020/68030) with a math"
  45.             " co-processor chip installed in it.  If you wish, you"
  46.             " can install both, then delete one if the other"
  47.             " is more useful on your system\n\n" 
  48.             @askchoice-help))
  49.         (choices "Install Basic Draw2000 Version" 
  50.             "Install Draw2000M for Math Co-Processor"
  51.             "Install Both")
  52.         (default sysver)
  53.     )
  54. )
  55.  
  56. (complete 10)
  57.  
  58. ; Copy executable files and icons
  59. (askdisk 
  60.     (prompt "Please insert the \"Draw 2000\" disk in any drive.")
  61.     (dest "Draw 2000")
  62.     (help @askdisk-help)
  63. )
  64.  
  65. (if (< mathver 2)
  66.     (if (= mathver 1)
  67.         (
  68.             (copyfiles
  69.                 (prompt "Copy Program files for Math Co-Processor version.")
  70.                 (help @copyfiles-help)
  71.                 (source "Draw 2000:draw2000")
  72.                 (dest d2dir)
  73.                 (pattern "Draw2000M#?")
  74.                 (infos)
  75.                 (confirm)
  76.             )
  77.             (copyfiles
  78.                 (prompt "Copy icon information for this version.")
  79.                 (help @copyfiles-help)
  80.                 (source "Draw 2000:draw2000")
  81.                 (dest d2dir)
  82.                 (pattern "#?M.#?")
  83.                 (infos)
  84.                 (confirm)
  85.             )
  86.         )
  87.         (
  88.             (copyfiles
  89.                 (prompt "Copy Program files for Basic Draw 2000 version.")
  90.                 (help @copyfiles-help)
  91.                 (source "Draw 2000:draw2000")
  92.                 (dest d2dir)
  93.                 (pattern "Draw2000")
  94.                 (infos)
  95.                 (confirm)
  96.             )
  97.             (copyfiles
  98.                 (prompt "Copy drawing icon information.")
  99.                 (help @copyfiles-help)
  100.                 (source "Draw 2000:draw2000")
  101.                 (dest d2dir)
  102.                 (pattern "drawing.icon")
  103.                 (infos)
  104.                 (confirm)
  105.             )
  106.             (copyfiles
  107.                 (prompt "Copy part icon information.")
  108.                 (help @copyfiles-help)
  109.                 (source "Draw 2000:draw2000")
  110.                 (dest d2dir)
  111.                 (pattern "part.icon")
  112.                 (infos)
  113.                 (confirm)
  114.             )
  115.         )
  116.     )
  117.     (copyfiles
  118.         (prompt "Copy all files for both versions.")
  119.         (help @copyfiles-help)
  120.         (source "Draw 2000:draw2000")
  121.         (dest d2dir)
  122.         (all)
  123.         (infos)
  124.         (confirm)
  125.     )
  126. )
  127.  
  128. (complete 50)
  129.  
  130. ; Install choice of plotter files
  131. (askdisk 
  132.     (prompt "Please insert the \"Draw 2000 Data\" disk in any drive.")
  133.     (dest "D2000 Data")
  134.     (help @askdisk-help)
  135. )
  136.  
  137. (copyfiles
  138.     (prompt "Install your choice of Plotter files.  Please see \"Help\""
  139.         " for more information about available choices.")
  140.     (source "D2000 Data:Plotters")
  141.     (dest (tackon d2dir "Plotters"))
  142.     (all)
  143.     (confirm 0)
  144.     (help (cat "   You can deselect any plotter you don't want."
  145.         " For use with the PLT: device, be sure to"
  146.         " install one of the HP plotters -- HP7475 is a good one."  
  147.         " For use with a PostScript printer or for saving EPS"
  148.         " files, be sure to install the LaserWriter.PS"
  149.         " file.\n\n" @copyfiles-help))
  150. )
  151.  
  152. ; install/not install samples
  153. (set samples
  154.     (askbool
  155.         (prompt "Do you want to install the sample Drawings and Parts?")
  156.         (help "   The sample drawings provided include Draw 2000"
  157.             " drawings called GEAR DESIGN and DRAW COVER, and a DXF-format"
  158.             " drawing originally produced in AUTOCAD, called COLUMBIA.DXF. "
  159.             " The sample part lists provided are called GEAR.part and"
  160.             " T-SQUARE.part")
  161.         (choices "Install Samples" "Do Not Install Samples")
  162.         (default 1)
  163.     )
  164. )
  165.  
  166. ; if installing drawings and parts, establish user path for drawings
  167. (if (= samples 1)
  168.     (
  169.         (set drawdir
  170.             (askdir
  171.                 (prompt
  172.                 "Where would you like the sample Drawings to be installed?")
  173.                 (help @askdir-help)
  174.                 (default (tackon d2dir "Drawings"))
  175.             )
  176.         )
  177.         (makedir drawdir (infos))
  178.  
  179.         (copyfiles
  180.             (prompt "Copying Drawings files.")
  181.             (help @copyfiles-help)
  182.             (source "D2000 Data:Drawings")
  183.             (dest drawdir)
  184.             (infos)
  185.             (all)
  186.             (confirm 0)
  187.         )
  188.  
  189.         (complete 70)
  190.  
  191.         (set partdir
  192.             (askdir
  193.                 (prompt
  194.                 "Where would you like the sample Parts to be installed?")
  195.                 (help @askdir-help)
  196.                 (default (tackon d2dir "Parts"))
  197.             )
  198.         )
  199.  
  200.         (makedir partdir (infos))
  201.  
  202.         (copyfiles
  203.             (prompt "Copying Parts files.")
  204.             (help @copyfiles-help)
  205.             (source "D2000 Data:Parts")
  206.             (dest partdir)
  207.             (infos)    
  208.             (all)
  209.             (confirm 0)
  210.         )
  211.     )
  212. )
  213.  
  214. (complete 80)
  215.  
  216. ; Install/not install PLT device
  217. (set PLTin
  218.     (askbool
  219.         (prompt "Do you want to install the PLT device?")
  220.         (help "   This step copies the device to the devs: directory, and"
  221.             " sets up your StartupII file to mount PLT automatically."
  222.             " It also adds the mount information to your MountList."
  223.             " You can skip this step if you do not expect to use the PLT"
  224.             " device -- for example, if you have a plotter.")
  225.         (choices "Install PLT Device" "Do Not Install PLT Device")
  226.         (default 1)
  227.     )
  228. )
  229.  
  230. (if (= PLTin 1)
  231.     (
  232.         (copyfiles
  233.             (prompt "Copy the PLT device handler to your L: directory.")
  234.             (help @copyfiles-help)
  235.             (source "Draw 2000:l")
  236.             (dest "L:") 
  237.             (pattern "PLT-hand#?")
  238.         )
  239.         (copyfiles
  240.             (prompt "Copy the draw configuration files to your devs:"
  241.                 " directory.")
  242.             (help @copyfiles-help)
  243.             (source "Draw 2000:devs")
  244.             (dest "devs:") 
  245.             (pattern "draw#?")
  246.         )
  247.         (run "join devs:MountList devs:draw.mountlist as RAM:MountList")
  248.         (run "rename devs:MountList devs:MountList.old")
  249.         (copyfiles
  250.             (prompt "Place altered MountList in your devs: directory.")
  251.             (help @copyfiles-help)
  252.             (source "RAM:")
  253.             (dest "devs:")
  254.             (pattern "MountList")
  255.         )
  256.         (if (= sysver 0)
  257.             (
  258.                 (run "rename s:StartupII s:StartupII.old")
  259.                 (textfile
  260.                     (prompt
  261.                         "Add \"mount PLT:\" command to your StartupII file.")
  262.                     (help @copyfiles-help)
  263.                     (dest "s:StartupII")
  264.                     (include "Draw 2000:s/mountstring")
  265.                     (include "S:StartupII.old")
  266.                     (confirm)
  267.                 )
  268.             )
  269.             (
  270.                 (run "rename s:User-Startup s:User-Startup.old")
  271.                 (textfile
  272.                     (prompt
  273.                         "Add mount PLT: command to your User-Startup file.")
  274.                     (help @copyfiles-help)
  275.                     (dest "s:User-Startup")
  276.                     (include "Draw 2000:s/mountstring")
  277.                     (include "S:UserStartup.old")
  278.                     (confirm)
  279.                 )
  280.             )
  281.         )
  282.     )
  283.     (
  284.         (copyfiles
  285.             (prompt "Copy Draw 2000 configuration file to devs:")
  286.             (help @copyfiles-help)
  287.             (source "Draw 2000:devs")
  288.             (dest "DEVS:")
  289.             (pattern "draw-con#?")
  290.         )
  291.     )
  292. )
  293.  
  294. (complete 95)
  295.  
  296. (copyfiles
  297.     (prompt "Copy the Stroke font to your fonts: directory.")
  298.     (help @copyfiles-help)
  299.     (Source "Draw 2000:fonts")
  300.     (dest "Fonts:")
  301.     (all)
  302. )
  303.  
  304. (complete 100)
  305.  
  306. (exit)
  307.  
  308.